home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / FULLDB13.ARJ / PARSE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-10-15  |  481b  |  26 lines
  1. unit parse;
  2.  
  3. { Unit to parse strings & demonstrate FULLDB }
  4.  
  5. { Compile in the regular way, then run
  6.      FULLDB parse
  7.   to add debugging information from PARSE.OBJ to PARSE.TPU.  }
  8.  
  9. interface
  10.  
  11. function wordcount(s:string):integer;
  12. { Count the words in s with blanks as delimiters }
  13.  
  14. function getword(n:integer;s:string):string;
  15. { Get word n from string s }
  16.  
  17. implementation
  18.  
  19. function wordcount; external;
  20.  
  21. function getword; external;
  22.  
  23. {$L parse.obj}
  24.  
  25. end.
  26.